Pmt-Funktion (Beispiel)

In diesem Beispiel wird die Pmt-Funktion verwendet, um die monatliche Zahlung fⁿr einen Kredit ⁿber einen festgelegten Zeitraum zurⁿckzugeben. Die folgenden Werte sind gegeben: Zinssatz pro Zeitraum (JZINS / 12), Gesamtanzahl der Zahlungen (GesZahl), Barwert oder heutiger Wert des Kredits (BWert), Endwert des Kredits (EWert) und eine Zahl, die angibt, ob die Zahlung am Ende oder am Anfang des Zahlungszeitraums fΣllig ist (ZahlTyp).

Dim Fmt, EWert, BWert, JZINS, GesZahl, ZahlTyp, Zahlung
Const TYPENDE = 0, TYPANFANG = 1    ' Zahlungszeitpunkt.
Fmt = "###.###.##0,00"    ' Geldformat definieren.
EWert = 0    ' I.d.R. 0 fⁿr einen Kredit.
BWert = InputBox("Welchen Betrag m÷chten Sie aufnehmen?")
JZINS = InputBox("Wie hoch ist der Jahreszins fⁿr den Kredit?")
If JZINS > 1 Then JZINS = JZINS / 100    ' Richtiges Format verwenden.
GesZahl = InputBox("Wie viele Monatszahlungen m÷chten Sie leisten?")
ZahlTyp = MsgBox("Erfolgen Zahlungen am Monatsende?", vbYesNo)
If ZahlTyp = vbNo Then ZahlTyp = TYPANFANG Else ZahlTyp = TYPENDE
Zahlung = Pmt(JZINS / 12, GesZahl, -BWert, EWert, ZahlTyp)
MsgBox "Sie zahlen " & Format(Zahlung, Fmt) & " pro Monat."